home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / PAINT.DXR / 00017_PAGE BACK.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  528 b   |  24 lines
  1. on mouseUp
  2.   global pagenum, clrsprite, x1, y1, x2, y2
  3.   beep()
  4.   savepage()
  5.   set pagenum to pagenum - 1
  6.   if pagenum < 0 then
  7.     set pagenum to 12
  8.   end if
  9.   updateStage()
  10.   puppetSprite(2, 1)
  11.   set the ink of sprite 2 to 0
  12.   import2()
  13.   puppetSprite(44, 1)
  14.   set the visible of sprite 2 to 1
  15.   set the visible of sprite clrsprite to 0
  16.   set the visible of sprite 44 to 0
  17.   set the visible of sprite 2 to 1
  18.   spriteBox(2, x1, y1, x2, y2)
  19.   updateStage()
  20.   set the ink of sprite 2 to 36
  21.   puppetSprite(44, 1)
  22.   import31()
  23. end
  24.